home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 68 / Tiger_Disk_068_19xx_Tiger-Crew-Disk_de_Side_B.d64 / schluessel _lgk (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  69 lines
  1. 1 rem **************
  2. 2 rem * logiker/t-c
  3. 3 rem * on 24.12.93
  4. 4 rem * freeware
  5. 5 rem *
  6. 6 rem * schluesselraten
  7. 7 rem ******************
  8. 8 :
  9. 9 print"[147] logiker of tiger-crew [146]":forn=1to800:next
  10. 10 poke 53280,0:poke53281,0:poke 788,52
  11. 15 rate$="":ot=200:l=1
  12. 20 print"[147]    [213][195][198][210][198][195][196][197][183][197][196][195][198][210][198][195][201]
  13. 30 [153]"    peekschluesselratenpeek
  14. 40 print"    [202][195][196][197][196][195][198][210][175][210][198][195][198][210][198][195][203]
  15. 50 [153]" welcher der rechten
  16. 60 print" schluessel ist mit
  17. 70 [153]" dem linken identisch?"
  18. 80 [129] n[178]1[164]1000:[130]
  19. 90 [153]" sie haben aber
  20. 100 print" nur wenig zeit!
  21. 110 [129] n[178]1[164]600:[130]
  22. 120 a$(1)[178]"new"
  23. 130 a$(2)[178]"frewait"
  24. 140 a$(3)[178]"usrwait"
  25. 150 a$(4)[178]"tab(wait"
  26. 160 a$(5)[178]" wait"
  27. 170 [129] n[178]1[164]5
  28. 180 rate$[178]rate$[170]a$([181]([187](0)[172]5[170]1))
  29. 190 [130]
  30. 200 [153] " step (NULL)cmdcmdcmd   waitcmdcmdcmd(NULL) waitstepon";rate$
  31. 210 x[178][181]([187](0)[172]9)[170]1
  32. 220 [153]"
  33. 230 for nn=1 to 9
  34. 240 forn=1to5:h$=h$+a$(int(rnd(0)*5+1)):next
  35. 250 if x=nn then h$=rate$
  36. 260 print tab(24) nn;h$;""
  37. 270 h$=""
  38. 280 next
  39. 285 t=ot
  40. 290 print" ihr tip: [191]":print"      time
  41. 310 [161] a:[139] a[178]x[167]370
  42. 320 [139] a[178]x[167]370
  43. 330 [139] a[177]0[167]410
  44. 340 t[178]t[171]1:[139]t[178]0[167]440
  45. 350 [153] "on";t;"cmd  "
  46. 360 [137] 310
  47. 370 [153]" gratuliere!
  48. 380 print" naechster":l=l+1
  49. 390 print" level:";l;"[157]  "
  50. 400 ot=int(ot*9/10):rate$="":gosub600:goto 20
  51. 410 print" leider falsch!
  52. 420 [153]" die loesung war";x;"
  53. 430 goto 480
  54. 440 print" zu spaet!
  55. 450 [153]" die zeit ist um.
  56. 460 print" die loesung war";x
  57. 470 goto 480
  58. 480 gosub 600
  59. 485 if l>hl then hl=l
  60. 490 print"[145][145][145] high-level:";hl;"[157]  "
  61. 500 print" nocheinmal(j/n)?  "
  62. 510 print"                  "
  63. 520 gosub 600
  64. 530 if f$="j"then 10
  65. 540 if f$<>"n"then520
  66. 550 print"[147] tschuess und bis zum naechsten mal!":sys 42115
  67. 600 getf$:iff$=""then 600
  68. 610 return
  69.